﻿Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dss As New DataSet("expressions")
        Dim dtt As New DataTable("expression")
        Dim dcc As New DataColumn("expression")
        dtt.Columns.Add(dcc)
        Dim drr As DataRow = dtt.NewRow
        drr("expression") = Me.TextBox1.Text
        dtt.Rows.Add(drr)
        dss.Tables.Add(dtt)
        dss.WriteXml(Application.StartupPath & "\" & "exp.xml")
        Me.RichTextBox1.LoadFile(Application.StartupPath & "\" & "exp.xml", RichTextBoxStreamType.PlainText)
    End Sub
End Class
